home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / rbbs / ansi173c.zip / RSB5ANSI.MRG < prev   
Text File  |  1992-05-10  |  2KB  |  29 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB5.BAS to produce RBBSSUB5.NEW
  3. * RBBSSUB5.BAS:  Date 9-1-1991  Size 100075 bytes
  4. * ------------[ Created 05-09-1992 23:48:54 ]------------
  5. * INSERTING new line(s)
  6. 64990 ' $SUBTITLE: 'AnsiTest --- test if ANSI present on users machine ' ANSI173C
  7.       ' $PAGE                                                        ' ANSI173C
  8.       '                                                              ' ANSI173C
  9.       '     OUTPUTS                                                  ' ANSI173C
  10.       '                                                              ' ANSI173C
  11.       '    ZANSITest = ZTrue  - if ANSI is detected                  ' ANSI173C
  12.       '                                                              ' ANSI173C
  13.       SUB AnsiTest STATIC                                            ' ANSI173C
  14.       ZANSITest = ZFalse                                             ' ANSI173C
  15.       CALL QuickTPut1 ("Auto-Sensing ANSI....")                      ' ANSI173C
  16.       CALL PutCom ("n")                                           ' ANSI173C
  17.       CALL DelayTime (2)                                             ' ANSI173C
  18.       CALL FlushCom (ZWasY$)                                         ' ANSI173C
  19.       IF MID$(ZWasY$,1,1) <> "" THEN _                              ' ANSI173C
  20.          CALL SkipLine (1) : _                                       ' ANSI173C
  21.          CALL QuickTPut1 ("ANSI not detected.") : _                  ' ANSI173C
  22.          EXIT SUB                                                    ' ANSI173C
  23.       ZANSITest = ZTrue                                              ' ANSI173C
  24.       CALL FlushCom (ZWasDF$)                                        ' ANSI173C
  25.       CALL SkipLine (1)                                              ' ANSI173C
  26.       CALL QuickTPut1 ("ANSI Detected!")                      ' ANSI173C
  27.       CALL DelayTime (2)                                             ' ANSI173C
  28.       END SUB                                                        ' ANSI173C
  29.